home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / array1.cpp < prev    next >
C/C++ Source or Header  |  1998-12-23  |  2KB  |  54 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "array1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. const int xMax=5; int Feld1D[xMax];
  9. const int yMax=4; int Feld2D[xMax][yMax];
  10. const int zMax=3; int Feld3D[xMax][yMax][zMax];
  11.  
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21. randomize ();
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm1::Button1Click(TObject *Sender)
  25. {
  26.   Canvas->TextOut (40,10,"Feld1D");
  27.   Canvas->TextOut (40,85,"Feld2D");
  28.   Canvas->TextOut (ClientWidth/2+30,10,"Feld3D");
  29.  
  30.   // 1D-Feld belegen und anzeigen
  31.   for (int i=0; i< xMax; i++)
  32.   {
  33.     Feld1D[i] = i;
  34.     Canvas->TextOut (i*30+40,40,String(Feld1D[i]));
  35.   }
  36.   // 2D-Feld belegen und anzeigen
  37.   for (int i=0; i< xMax; i++)
  38.     for (int j=0; j< yMax; j++)
  39.     {
  40.       Feld2D[i][j] = i*j;
  41.       Canvas->TextOut (i*30+40,j*15+115,String(Feld2D[i][j]));
  42.     }
  43.   // 3D-Feld belegen und anzeigen
  44.   for (int i=0; i< xMax; i++)
  45.     for (int j=0; j< yMax; j++)
  46.       for (int k=0; k< zMax; k++)
  47.       {
  48.         Feld3D[i][j][k] = i*j*k;
  49.         Canvas->TextOut
  50.          (i*30+ClientWidth/2+30,j*15+k*75+40,String(Feld3D[i][j][k]));
  51.       }
  52. }
  53. //---------------------------------------------------------------------------
  54.